home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_57.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  457 b   |  14 lines
  1. on mouseDown
  2.   global decouvrirMenu
  3.   if buttonJFclicked(the clickOn, the clickOn - 1, "genealogieReseauxLight", "genealogieReseaux") then
  4.     depuppetize(1, 48)
  5.     purgeSound()
  6.     if dejaVusection(decouvrirMenu, #genealogie) then
  7.       initNextMovie("ATOPWINDOW", "gen.dir", "reseaux", "genealogie", "genPal", 1, 0)
  8.     else
  9.       initNextMovie("ATOPWINDOW", "gen.dir", "reseaux", "genealogie", "genPal", 1, 1)
  10.     end if
  11.     go("dispatch")
  12.   end if
  13. end
  14.